home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 7 / DOS229B.dsk / DOT TO DOT.bas < prev    next >
BASIC Source File  |  2012-02-16  |  4KB  |  49 lines
  1. 5  PRINT : HOME : ONERR  GOTO 750
  2. 7  HIMEM: 8192: GOSUB 10000: GOTO 1000
  3. 10  POKE  -16368,0:NY = BY:NX = BX:J = 0:FX = 0: POKE 251,XL: POKE 252,XH
  4. 11  CALL GT:R =  PEEK(KB): IF R  THEN NX = BX -(R = 2) *17 +(R = 3) *17:NY = BY -(R = 1) *17 +(R = 4) *17:NX = NX *(NX >2) +2 *(NX <3):NY = NY *(NY >2) +2 *(NY <3): IF R >4  THEN  ON R -4 GOTO 240,250,260,19,40
  5. 13 NX = NX *(NX <266) +265 *(NX >265):NY = NY *(NY <176) +175 *(NY >175): CALL HC,NX/2,NY,PI:LT =  PEEK(255): IF LT  THEN NX =  PEEK(TB +LN +(LT -1) *2) *2:NY =  PEEK(TB +LN +(LT -1) *2 +1)
  6. 15 RT =  PEEK(255)
  7. 16  IF FF  THEN J = J +1: IF J >2  THEN  &  PRINT L, CHR$(32 *  NOT FX +(A +32 *CA) *FX) AT XB,YB:FX =   NOT FX:J = 0
  8. 17  IF NY = BY  AND NX = BX  THEN 11
  9. 18  XDRAW 2 AT BX,BY: XDRAW 2 AT (NX),NY:BX = NX:BY = NY: GOTO 11
  10. 19 R = RT +RR +63: &  PRINT L, CHR$(A +32 *CA) AT XB,YB: RETURN 
  11. 20  FOR I = 1 TO 2: POKE 769,55: POKE 768,255: CALL SD: NEXT : FOR I = 1 TO 500: NEXT : RETURN 
  12. 25  POKE 769,8: POKE 768,90: CALL SD: RETURN 
  13. 40  CALL CS: POKE 753,1: PRINT D$"RUNHELP": END 
  14. 200  FOR I = 1 TO 4: &  PRINT L," " AT XB,YB: GOSUB 25: &  PRINT L, CHR$(A +32 *CA) AT XB,YB: GOSUB 25: FOR J = 1 TO 250: NEXT : NEXT :TR = TR +1: RETURN 
  15. 240  GOSUB 270: GOTO 11
  16. 250  POP : CALL CS: PRINT D$"RUNMENU": END 
  17. 260 CA =   NOT CA: POKE DR +118,64 +32 *CA: POKE 251,XL: POKE 252,XH: XDRAW 2 AT BX,BY: CALL DR,PI,RR,RX: POKE 251,XL: POKE 252,XH: XDRAW 2 AT BX,BY: GOTO 11
  18. 270 JJ =  PEEK(SD): POKE SD,32 +64 *(JJ = 32): RETURN 
  19. 280 CA =   NOT CA: POP : CALL CS: GOTO 1000
  20. 300  GOSUB 200:FF = 1:TR = 2: RETURN 
  21. 600  REM 
  22. 602 PI = 2
  23. 605  POKE 230,64: CALL UN,150,5: ON   NOT  PEEK(255) GOTO 790: POKE 230,32
  24. 613 XT = SX +PI *54:XL = XT - INT(XT/256) *256:XH = XT/256:RX =  INT( RND(1) *80): POKE 251,XL: POKE 252,XH
  25. 618 TB =  PEEK(AR +PI *2) + PEEK(AR +1 +PI *2) *256:LN =  PEEK(LR +PI):RR = 1: IF RO >2  THEN RR =  INT( RND(1) *(26 -LN)) +1
  26. 620  CALL DR,PI,RR,RX: XDRAW 2 AT BX,BY: RETURN 
  27. 750  REM 
  28. 790  POKE 672,9: POKE 673,9: POKE 674, PEEK(960): POKE 676, PEEK(47082): PRINT : PRINT D$"RUNHELLO"
  29. 1000 RO = RO +1: GOSUB 600:CH = 0:C2 = 0:X1 =  PEEK(XT) *2:Y1 =  PEEK(XT +1)
  30. 1010 FF = 0:TR = 1:A = CH +RR +64:C1 =  PEEK(TB +CH):XA =  PEEK(XT +C1 *2) *2:YA =  PEEK(XT +C1 *2 +1):XB =  PEEK(TB +LN +CH *2) *2:YB =  PEEK(TB +LN +CH *2 +1)
  31. 1020  GOSUB 10: IF A < >R  THEN  ON TR GOSUB 200,300: GOTO 1020
  32. 1040  XDRAW 2 AT BX,BY: HPLOT X1,Y1 +2: POKE 767,96
  33. 1045 C2 = C2 +1:X1 =  PEEK(XT +C2 *2) *2:Y1 =  PEEK(XT +C2 *2 +1): CALL HP,X1,Y1 +2: IF C2 <C1  THEN 1045
  34. 1047 CH = CH +1: IF CH <LN  THEN  XDRAW 2 AT BX,BY: GOTO 1010
  35. 1050  IF C1 <26  AND C1 < >0  THEN C1 = 26: GOTO 1045
  36. 1055  IF C1  THEN C1 = 0:C2 =  -1: GOTO 1045
  37. 1060  CALL RA,11000 +PI *5: READ A$,X,Y:J =  LEN(A$): POKE 24580,0: POKE 230,64: FOR I = 1 TO J:N =  ASC( MID$ (A$,I,1)):N = N +32 *(CA  AND N >64  AND N <92): &  PRINT L, CHR$(N) AT X,Y:X = X +14: NEXT : POKE 24580,255: POKE 230,32
  38. 1065  FOR I = 1 TO 1500: NEXT : CALL FL,10
  39. 1070  FOR I = 1 TO 3000: NEXT 
  40. 1080  POKE 230,64: CALL CS: POKE  -16299,0: PRINT D$"RUNMENU": END 
  41. 1085  CALL CS: GOTO 1000
  42. 10000 UN = 24617:SX = 34816:DR = UN +9:HC = UN +12:AR =  PEEK(UN +23) + PEEK(UN +24) *256:LR =  PEEK(UN +25) + PEEK(UN +26) *256:FL = 34799:CS = 24595:GT = UN +15:HP = UN +18:KB = 752:RA = UN +6:SD = UN +3:BX = 139:BY = 96
  43. 10002 WF = UN +27:KS = UN +28:KC = UN +29: POKE KS,2: POKE KC,2
  44. 10003  HCOLOR= 3: ROT= 0:D$ =  CHR$(4): PRINT D$"BLOADB.WIPE+COORDINATES"
  45. 10014  POKE 24576,77: POKE 24580,255
  46. 10020  POKE 230,32: CALL CS: POKE  -16297,0: POKE  -16302,0: POKE  -16300,0: POKE  -16304,0: RETURN 
  47. 11000  DATA APPLE,202,5
  48. 11005  DATA BEAR,88,14
  49. 11010  DATA CAT,112,5